home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / WIN32 / Pvmfscatter.c < prev    next >
C/C++ Source or Header  |  1997-07-22  |  1KB  |  48 lines
  1.  
  2. /* $Id: Pvmfscatter.c,v 1.1 1997/06/27 16:32:33 pvmsrc Exp $ */
  3.  
  4. #ifdef WIN32
  5. #include "..\..\include\pvm3.h"
  6. #include "..\..\src\pvmwin.h"
  7. #else 
  8. #include "pvm3.h"
  9. #endif
  10.  
  11. #include "pvm_consts.h"
  12.  
  13. #ifdef __WATCOMC__
  14. #include "watforstr.h"
  15. void __fortran
  16. PVMFSCATTER (result, data, count, datatype, msgtag, gname_str, rootinst, info)
  17. void *result, *data;
  18. int *count, *datatype, *msgtag, *rootinst, *info;
  19. WatcomFortranStr* gname_str;
  20. {
  21.    char* gname_ptr = gname_str->strP;
  22.    int   gname_len = gname_str->len;
  23. #else
  24. void __stdcall
  25. PVMFSCATTER (result, data, count, datatype, msgtag, gname_ptr,gname_len, rootinst, info)
  26. void *result, *data;
  27. int *count, *datatype, *msgtag, *rootinst, *info;
  28. char * gname_ptr; int gname_len;
  29. {
  30. #endif
  31.   char tgroup[MAX_GRP_NAME + 1];
  32.  
  33.   /*
  34.    * Copy the group name to make sure there's a NUL at the end.
  35.    */
  36.  
  37.   if (ftocstr(tgroup,sizeof(tgroup),gname_ptr,gname_len))
  38.     {
  39.     *info = PvmBadParam;
  40.     return;
  41.     }
  42.  
  43.   *info = pvm_scatter(result, data, *count, *datatype, *msgtag, tgroup, 
  44.                       *rootinst);
  45.  
  46. }
  47.  
  48.